---
title: "dashboard"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(rvest)
library(httr)
library(p8105.datasets)
library(plotly)
```
Column {data-width=650}
-----------------------------------------------------------------------
### Chart A
```{r}
data("rest_inspec")
rest_inspec =
rest_inspec %>%
filter(grade %in% c("A", "B", "C"), boro != "Missing") %>%
mutate(boro = str_to_title(boro))
plot1 =
rest_inspec %>%
mutate(boro = fct_infreq(boro)) %>%
ggplot(aes(x = boro, fill = grade)) +
geom_bar()
ggplotly(plot1)
```
Column {data-width=350}
-----------------------------------------------------------------------
### Chart B
```{r}
rest_inspec1 =
rest_inspec %>%
group_by(boro, grade) %>%
summarize(n = n()) %>%
pivot_wider(names_from = grade, values_from = n) %>%
select(boro:C) %>%
filter(boro != "Missing") %>%
mutate(boro = str_to_title(boro))
plot2 =
rest_inspec1 %>%
select(boro, A) %>%
mutate(boro = fct_reorder(boro, A)) %>%
plot_ly(x = ~boro, y = ~A, color = ~boro, type = "scatter", mode = "markers", colors = "viridis")
plot2
```
### Chart C
```{r}
plot3 =
rest_inspec1 %>%
plot_ly(labels = ~boro, values = ~A, type = 'pie')
plot3
```